home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Night Owl 6
/
Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso
/
031a
/
blx11.zip
/
TECHNIX.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1991-01-21
|
343b
|
18 lines
program FileDemo;
const
FileName = 'TEST.TXT';
var
FileVar : Text;
InString : String;
begin
Assign(FileVar,FileName);
Rewrite(FileVar);
WriteLn(FileVar,'Write this to a file');
Close(FileVar);
Assign(FileVar,FileName);
Reset(FileVar);
Readln(FileVar,InString);
Close(FileVar);
WriteLn(InString);
end.